home *** CD-ROM | disk | FTP | other *** search
- %BEGIN Comments
- /rotateX 0 def
- /rotateY 0 def
- /DoingRotate false def
- /shortComment
- {
- /commentKind exch def
-
- commentKind /RotateEnd eq
- {
- DoingRotate true eq
- {
- restore
- /DoingRotate false def
- }
- if
- }
- {
- commentKind /DashedStop eq
- { [ ] 0 setdash }
- {
- commentKind /TextIsPostScript eq
- { /suppressText true def }
- {
- commentKind /TextEnd eq
- { /rotateText false def }
- if
- }
- ifelse
- }
- ifelse
- }
- ifelse
- }
- def
- /longComment
- {
- /commentKind exch def
- commentKind /RotateCenter eq
- {
- /thePoint exch def
- /rotateX thePoint 1 get def
- /rotateY thePoint 0 get def
- }
- {
- commentKind /RotateBegin eq
- {
- /rotateInfo exch def
- save
- /DoingRotate true def
- rotateInfo 2 get rotate
- }
- {
- commentKind /SetLineWidth eq
- {
- /lineWidth exch def
- /penWidth lineWidth def
- /penHeight lineWidth def
- }
- {
- commentKind /SetGrayLevel eq
- {
- /greyvalue exch def
- /foregroundColor [ greyvalue greyvalue greyvalue ] def
- }
- {
- commentKind /DashedLine eq
- {
- /dashInfo exch def
- dashInfo 1 get dashInfo 0 get setdash
- }
- {
- commentKind /TextCenter eq
- {
- /rotateInfo exch def
- /textCenterX rotateInfo 1 get def
- /textCenterY rotateInfo 0 get def
- }
- {
- commentKind /TextBegin eq
- {
- /rotateText true def
- /rotateInfo exch def
- /textAngle rotateInfo 3 get def
- }
- {pop}
- ifelse
- }
- ifelse
- }
- ifelse
- }
- ifelse
- }
- ifelse
- }
- ifelse
- }
- ifelse
- }
- def
- %END Comments
-